home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 161
/
161.d81
/
bm file chainer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
369b
|
13 lines
10 print"[147][159]":poke53281,0:poke53280,0
20 input"[159][211][210].[195]hapter name[158]:";f$:iff$=""then20
22 print:ifleft$(f$,3)<>"sr."thenf$="sr."+f$
25 input"[159][211][210].[198]ile to chain[158]:";c$:ifc$=""then25
27 print:ifleft$(c$,3)<>"sr."thenc$="sr."+c$
40 input"[159][196]evice[158]:";d$:ifval(d$)<8then40
50 print"[195]haining "c$" to "f$"..."
60 open2,val(d$),2,f$+",p,a"
70 print#2,chr$(0);c$;:close2
80 open15,val(d$),15:input#15,a$,b$,c$,d$:printa$","b$","c$","d$
90 geta$:ifa$=""then90
100 run